home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)md.d64 / shuffle one.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  766b  |  32 lines
  1. 10 REM * * SOUND PROGRAM OF * *
  2. 20 REM * * CARDS BEING SHUFFLED * *
  3. 30 REM * * PROGRAM #1 * *
  4. 40 PRINT"[147]"
  5. 50 FORA=1TO800:NEXTA
  6. 60 FORB=54272TO54296:POKEB,0:NEXTB
  7. 70 V=54296:W=54276:A=54277
  8. 80 HF=54273:LF=54272
  9. 90 FORY=1TO3
  10. 100 FORX=1TO25
  11. 110 POKEV,15:POKEW,129:POKEA,15
  12. 120 POKEHF,60:POKELF,100
  13. 130 POKEHF,0:POKELF,0:POKEW,0
  14. 140 NEXTX
  15. 150 FORT=1TO300:NEXTT
  16. 160 FORZ=1TO40
  17. 170 POKEV,15:POKEW,129:POKEA,128
  18. 180 POKEHF,90:POKELF,140
  19. 190 POKEHF,0:POKELF,0:POKEW,0
  20. 200 NEXTZ
  21. 210 FORS=1TO500:NEXTS
  22. 220 NEXTY
  23. 230 PRINT"[147]":POKE53280,11:POKE53281,11:PRINT"[155]"
  24. 240 PRINT:PRINT:PRINT"  HERE IS ONE SHUFFLING PROGRAM.":PRINT
  25. 250 PRINT"  THIS ONE SHUFFLES FAST AND SOME-":PRINT
  26. 260 PRINT"  WHAT CLEAN REMINDING ONE OF MAYBE":PRINT
  27. 270 PRINT"  A VEGAS DEALER.  PROGRAM #2 SOUNDS":PRINT
  28. 280 PRINT"  A LITTLE MORE LIKE YOU AND I DEAL.":PRINT
  29. 290 PRINT"  TAKE YOUR PICK, EITHER ONE WILL":PRINT
  30. 300 PRINT"  ENHANCE YOUR CARD GAME."
  31. 310 FORC=1TO6000:NEXTC
  32.